home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / docume1a / docproce next >
Text File  |  1999-09-10  |  20KB  |  601 lines
  1. Attribute VB_Name = "DocProcedures"
  2.  
  3. 'Functions of the document application
  4. 'Save Functions, Close Functions, and Exit
  5. 'Functions.  Created so that frmOpenDoc
  6. 'can call the functions, instead of making
  7. 'them public in the MDIForm.
  8.  
  9.  
  10. 'SAVE PROCEDURES
  11. '===============
  12.  
  13. Public Function SaveEnabled()
  14.     If boolnew = False Then
  15.         MDIForm1.mnuSave.Enabled = True
  16.         MDIForm1.Toolbar1.Buttons(3).Enabled = True
  17.         MDIForm1.mnuSaveAs.Enabled = True
  18.         MDIForm1.Toolbar1.Buttons(4).Enabled = True
  19.     Else
  20.         MDIForm1.mnuSaveAs.Enabled = True
  21.         MDIForm1.Toolbar1.Buttons(4).Enabled = True
  22.     End If
  23. End Function
  24. Public Function SaveDisabled()
  25.     MDIForm1.mnuSaveAs.Enabled = False
  26.     MDIForm1.mnuSave.Enabled = False
  27.     MDIForm1.Toolbar1.Buttons(3).Enabled = False
  28.     MDIForm1.Toolbar1.Buttons(4).Enabled = False
  29. End Function
  30. Public Function SaveDoc()
  31.         If GetAttr(MDIForm1.CommonDialog1.filename) And vbReadOnly Then
  32.             MsgBox MDIForm1.CommonDialog1.filename & " is a read only file. It cannot be saved."
  33.             bCannotSave = True
  34.             Exit Function
  35.         End If
  36.  
  37.         If boolnew = True Then
  38.             frmOpenDoc.RichTextBox1.SelStart = 0
  39.             frmOpenDoc.RichTextBox1.SaveFile MDIForm1.CommonDialog2.filename
  40.             boolsave = True
  41.             MDIForm1.mnuSave.Enabled = False
  42.             MDIForm1.Toolbar1.Buttons(3).Enabled = False
  43.         Else
  44.             frmOpenDoc.RichTextBox1.SelStart = 0
  45.             frmOpenDoc.RichTextBox1.SaveFile MDIForm1.CommonDialog1.filename
  46.             boolsave = False
  47.             MDIForm1.mnuSave.Enabled = True
  48.             MDIForm1.Toolbar1.Buttons(3).Enabled = False
  49.         End If
  50. End Function
  51. Public Function SaveNew()
  52.     On Error GoTo ErrHandler
  53.     MDIForm1.CommonDialog2.Flags = &H2 'File exists
  54.     MDIForm1.CommonDialog2.ShowSave
  55.     frmOpenDoc.RichTextBox1.SaveFile MDIForm1.CommonDialog2.filename
  56.     boolsave = False
  57.     ControlsDisabled
  58.     Exit Function
  59. ErrHandler:
  60.     Cancel = True
  61. End Function
  62. Public Function SaveAs()
  63.     On Error GoTo ErrHandler
  64.     MDIForm1.CommonDialog2.Flags = &H2 'File exists
  65.     MDIForm1.CommonDialog2.ShowSave
  66.     frmOpenDoc.RichTextBox1.SaveFile MDIForm1.CommonDialog2.filename
  67.     boolsave = False
  68.     boolnew = False
  69.     frmOpenDoc.Caption = MDIForm1.CommonDialog2.filename
  70.     MDIForm1.StatusBar1.Panels(1).Text = MDIForm1.CommonDialog2.filename
  71.     MDIForm1.mnuPrintPreview.Enabled = True: MDIForm1.Toolbar1.Buttons(7).Enabled = True
  72.     MDIForm1.mnuDelete.Enabled = True: MDIForm1.Toolbar1.Buttons(5).Enabled = True
  73.     Exit Function
  74. ErrHandler:
  75.     Cancel = True
  76. End Function
  77.  
  78. 'CLOSING PROCEDURES
  79. '==================
  80.  
  81. Public Function CloseNew()
  82. Response = MsgBox("  Do You Want To Save Changes?", vbQuestion + vbYesNoCancel)
  83. MDIForm1.CommonDialog2.CancelError = True
  84. On Error GoTo ErrHandler
  85.     Select Case Response
  86.         Case vbYes
  87.             Call SaveAs
  88.             Call CloseNew1
  89.         Case vbNo
  90.             Call ControlsDisabled
  91.             Call CloseNew1
  92.     End Select
  93. Exit Function
  94. ErrHandler:
  95. Cancel = True
  96. End Function
  97. Public Function CloseModExisting()
  98.         If boolsave = True Then
  99.             Response = MsgBox("  Do You Want To Save Changes ", vbQuestion + vbYesNoCancel)
  100.             On Error GoTo ErrHandler
  101.         Select Case Response
  102.             Case vbYes
  103.                 Call SaveDoc
  104.                 If bCannotSave = False Then
  105.                     Call CloseModExisting1
  106.                 End If
  107.             Case vbNo
  108.                 Call CloseModExisting1
  109.         End Select
  110.         Else
  111.             Call ControlsDisabled
  112.             frmOpenDoc.RichTextBox1.Visible = False
  113.         End If
  114. ErrHandler:
  115. Exit Function
  116. End Function
  117. Public Function CloseFile()
  118.         If boolnew = True And boolsave = True Then
  119.             Call CloseNew
  120.         Else
  121.             If boolsave = True Then
  122.                 Call CloseModExisting
  123.             Else
  124.                 Call ControlsDisabled
  125.                 frmOpenDoc.RichTextBox1.Visible = False
  126.             End If
  127.         End If
  128. End Function
  129.  
  130. 'EXIT PROCEDURES
  131. '===============
  132.  
  133. Public Function ExitDoc()
  134.         If boolsave = True And boolnew = True Then
  135.             Response = MsgBox("  Do You Want To Save Changes?", vbQuestion + vbYesNoCancel)
  136.             MDIForm1.CommonDialog2.CancelError = True
  137.             On Error GoTo ErrHandler
  138.         Select Case Response
  139.             Case vbYes
  140.                 Call SaveAs
  141.                 End
  142.             Case vbNo
  143.                 End
  144.         End Select
  145.         Else
  146.             If boolsave = True And boolnew = False Then
  147.                 Response = MsgBox("  Do You Want To Save Changes?", vbQuestion + vbYesNoCancel)
  148.                 MDIForm1.CommonDialog2.CancelError = True
  149.                 On Error GoTo ErrHandler
  150.             Select Case Response
  151.                 Case vbYes
  152.                     Call SaveDoc
  153.                     End
  154.                 Case vbNo
  155.                     End
  156.             End Select
  157.             Else
  158.                 End
  159.             End If
  160.         End If
  161. ErrHandler:
  162. Exit Function
  163. End Function
  164.  
  165. 'OPEN PROCEDURES
  166. '===============
  167.  
  168. Public Function OpenDocument()
  169.     Call SaveDisabled
  170.     Dim currLine&
  171.     boolsave = False
  172.     boolnew = False
  173.     MDIForm1.CommonDialog1.CancelError = True
  174.     On Error GoTo ErrHandler
  175.     MDIForm1.CommonDialog1.ShowOpen
  176.     Screen.MousePointer = 11
  177.     DoEvents 'added to hide the Open dialog while loading.
  178.     MDIForm1.StatusBar1.Panels(1).Text = "Loading file, please wait..."
  179.     frmOpenDoc.Visible = True
  180.     frmOpenDoc.RichTextBox1.Visible = True
  181.     frmOpenDoc.WindowState = 0
  182.     frmOpenDoc.Width = Screen.Width * 0.89 ' Set width of form.
  183.     frmOpenDoc.Height = Screen.Height * 0.61   ' Set height of form.
  184.     frmOpenDoc.RichTextBox1.LoadFile MDIForm1.CommonDialog1.filename
  185.     DoEvents
  186.     currLine& = SendMessageLong(frmOpenDoc.RichTextBox1.hwnd, EM_LINEFROMCHAR, -1&, 0&) + 1
  187.     MDIForm1.StatusBar1.Panels(4) = Format$(currLine&, "##,###")
  188.     MDIForm1.StatusBar2.Visible = False
  189.     frmOpenDoc.Caption = MDIForm1.CommonDialog1.filename
  190.     frmOpenDoc.SetFocus
  191.     MDIForm1.StatusBar1.Panels(1) = MDIForm1.CommonDialog1.filename
  192.     Screen.MousePointer = 0
  193.     Call ControlsEnabled
  194.     frmFind.Hide
  195.     frmReplace.Hide
  196.     boolnew = False
  197.     Exit Function
  198. ErrHandler:
  199.     Exit Function
  200. End Function
  201. Public Function OpenDocMod()
  202. Response = MsgBox("  Do You Want To Save Changes?", vbQuestion + vbYesNoCancel)
  203. MDIForm1.CommonDialog2.CancelError = True
  204. On Error Resume Next
  205.         Select Case Response
  206.             Case vbYes
  207.                 OpenDocModify
  208.             Case vbNo
  209.                 ControlsDisabled
  210.                 frmOpenDoc.Visible = False
  211.                 Call OpenFile
  212.         End Select
  213. frmFind.Hide
  214. frmReplace.Hide
  215. Exit Function
  216. ErrHandler:
  217. Exit Function
  218. End Function
  219. Public Function OpenFile()
  220.         If boolnew = True And boolsave = True Then
  221.             Call OpenDocMod
  222.         Else
  223.             If boolsave = True Then
  224.                 Call OpenCloseModExisting
  225.             Else
  226.                 Call OpenDocument
  227.             End If
  228.         End If
  229. End Function
  230. Public Function OpenCloseModExisting()
  231.         If boolnew = True And boolsave = True Then
  232.             Call OpenDocMod
  233.         Else
  234.             If boolsave = True Then
  235.                 Response = MsgBox("  Do You Want To Save Changes?", vbQuestion + vbYesNoCancel)
  236.                 On Error GoTo ErrHandler
  237.             Select Case Response
  238.                 Case vbYes
  239.                     Call SaveDoc
  240.                     Call OpenDocument
  241.                 Case vbNo
  242.                     Call OpenDocument
  243.             End Select
  244.             Else
  245.                 Call OpenDocument
  246.             End If
  247.         frmFind.Hide
  248.         frmReplace.Hide
  249.         End If
  250.         Exit Function
  251.         
  252. ErrHandler:
  253. Exit Function
  254.  
  255. End Function
  256. Public Function DocUnload()
  257.         If boolnew = True And boolsave = True Then
  258.